10 POKE53280,0:POKE53281,0:PRINT"[147]" 15 PRINT"[210] [193] [201] [206] [194] [207] [215]"; 20 A$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]" 30 PRINT"[149]"A$"[129]"A$"[158]"A$""A$"[154]"A$""; 40 PRINT"[208] [210] [207] [212] [207] [195] [207] [204]" 50 PRINT:PRINT" [210][193][156][201][158][206][159][194][154][207][150][215][146] PROTOCOL IS A" 60 PRINT" STATE-OF-THE-ART MODEM" 70 PRINT" TRANSFER PROGRAM FOR" 80 PRINT" THE [195]OMMODORE 64." 90 PRINT: PRINT" [193]LL FILES CAN BE SENT" 100 PRINT" ACROSS THE MODEM, EVEN" 110 PRINT" RELATIVE FILES." 120 PRINT:PRINT " [210][193][156][201][158][206][159][194][154][207][150][215][146] IS INTELLIGENT" 130 PRINT " AND EASY TO ADD TO ANY" 140 PRINT " OF YOUR PROGRAMS." 150 GOSUB200 160 GOTO300 200 PRINT"";:FORG=1TO24:PRINT"";:NEXT 210 PRINT" [158] PRESS  [210][197][212][213][210][206] [146][158] TO CONTINUE"; 220 GETA$:IFA$<>CHR$(13)THEN220 230 RETURN 300 PRINT"[147]":PRINT 310 PRINT"[159][210][193][201][206][194][207][215] [210][197][211][201][196][197][211]: $C000 - $C941":PRINT" 49152 - 51521" 320 PRINT:PRINT"[159][211][197][212][212][201][206][199] [205][197][205][207][210][217] [204][207][195][193][212][201][207][206][211]:":PRINT 330 PRINT"[196][201][211][208][204][193][217][160][211][215][201][212][195][200]..49197" 340 PRINT"[196][197][214][201][195][197] ..49198" 350 PRINT"[194][204][207][195][203][160][211][201][218][197] ..49199" 360 PRINT"[196][210][201][214][197] ..49200" 370 PRINT"[195][207][205][205][213][206][201][195][193][212][201][207][206] ..49196":PRINT 380 PRINT"[159][207][208][212][201][207][206][193][204] [209][213][197][210][217] [204][207][195][193][212][201][207][206][211]:":PRINT 390 PRINT"[198][201][204][197] [212][217][208][197] ..49193" 400 PRINT"[204][197][206][199][212][200] ..49194 - 49195":PRINT 410 PRINT:PRINT"[159][193][195][212][201][214][193][212][201][206][199] [204][207][195][193][212][201][207][206][211]:":PRINT 420 PRINT"[212][210][193][206][211][205][201][212] ..49152" 430 PRINT"[210][197][195][197][201][214][197] ..49155" 460 GOSUB200 500 PRINT"[156][147][196][201][211][208][204][193][217] [211][215][201][212][195][200]: 49197":PRINT 510 PRINT"[208]OKING A 1 IN THIS LOCATION WILL TURN" 520 PRINT"ON THE SCREEN DISPLAY. [212]HIS MODE IS" 525 PRINT"USED IN TERMINAL PROGRAMS WHERE THE" 530 PRINT"PROGRESS OF THE TRANSFER NEEDS TO BE" 540 PRINT"MONITORED. [201]F SET TO 0 ONLY [160]DISK" 550 PRINT"ERRORS WILL BE DISPLAYED. [212]HIS MODE" 560 PRINT"IS USED USUALLY IN A [194][194][211] PROGRAM." 600 PRINT:PRINT:PRINT:PRINT:PRINT"[156][196][197][214][201][195][197] [211][197][204][197][195][212]: 49198":PRINT 610 PRINT"[212]HE NUMBER OF THE DISK DRIVE DEVICE" 620 PRINT"MUST BE POKED INTO THIS LOCATION. [212]HE" 630 PRINT"NUMBER MUST BE BETWEEN 8 AND 11 AND IN" 640 PRINT"DECIMAL (NOT [193][211][195][201][201]).":PRINT:GOSUB200:PRINT"[147]"; 650 PRINT:PRINT"[156][194][204][207][195][203][160][211][201][218][197]: 49199":PRINT 660 PRINT"[212]HE NUMBER OF BYTES TO SEND PER EACH" 670 PRINT"ITERATION OF THE TRANSFER IS POKED INTO" 680 PRINT"THIS LOCATION. [212]HIS IS ONLY NECESSARY" 690 PRINT"WHEN TRANSMITTING. [210]ECEIVING ADJUSTS" 700 PRINT"AUTOMATICALLY. [194]LOCK SIZE SHOULD BE" 705 PRINT"BETWEEN 30 AND 255.":PRINT 710 PRINT:PRINT:PRINT"[156][196][210][201][214][197]: 49200":PRINT 720 PRINT"[212]HIS LOCATION IS USED TO SELECT THE" 730 PRINT"DRIVE NUMBER ON A DUAL DISK DRIVE" 740 PRINT"SYSTEM. [201]T SHOULD BE POKED WITH AN" 750 PRINT"[193][211][195][201][201] 0 OR AN [193][211][195][201][201] 1, DEC 48 OR 49." 760 GOSUB200:PRINT"[147]"; 800 PRINT:PRINT"[156][195][207][205][205][213][206][201][195][193][212][201][207][206]: 49196":PRINT 810 PRINT"[210][193][201][206][194][207][215] IS INTELLIGENT ENOUGH TO REPORT" 820 PRINT"SEVERAL DIFFERENT ERRORS AFTER A" 830 PRINT"TRANSFER. [212]HE NUMBER RETURNED IN THIS" 840 PRINT"LOCATION HAS THE FOLLOWING MEANINGS:":PRINT 850 PRINT"0)..[205]EANS NO ERROR, TRANSFER COMPLETE." 860 PRINT"1)..[206]O RESPONSE FROM OTHER COMPUTER." 870 PRINT"2)..[212]HERE WAS A LOCAL DISK ERROR." 880 PRINT"3)..[201]F TRANSMITING, THIS ERROR" 890 PRINT" INDICATES A [198][201][204][197] [206][207][212] [198][207][213][206][196] ERROR." 900 PRINT" [201]F RECEIVING, INDICATES A [196][201][211][203] [198][213][204][204]" 910 PRINT" ERROR." 920 PRINT"4)..[207]THER COMPUTER SENT A [195][193][206][195][197][204]" 930 PRINT" REQUEST." 940 PRINT"5)..[205]ULTIPLE ATTEMPTS TO SEND A BLOCK" 950 PRINT" FAILED; TRANSMISSION PROBLEMS." 960 PRINT"6)..[207]PERATOR MANUALY CANCELED. [212]HIS IS" 970 PRINT" DONE BY PRESSING THE [195]OMMODORE" 980 PRINT" LOGO KEY IN THE LOWER LEFT HAND" 990 PRINT" CORNER OF THE KEYBOARD." 995 GOSUB200 1000 PRINT"[147][158][193][195][212][201][214][193][212][201][207][206]: 49152 AND 49155":PRINT 1010 PRINT"[210][193][201][206][194][207][215] IS VERY AUTOMATIC. [193]FTER" 1020 PRINT"SETTING BLOCK SIZE, DRIVE AND DEVICE" 1030 PRINT"PUT THE FILE NAME TO TRANSMIT OR" 1040 PRINT"RECEIVE IN THE [194][193][211][201][195] VARIABLE [206][205]$." 1050 PRINT"[212]O TRANSMIT, [211][217][211] 49152. [212]O RECEIVE" 1060 PRINT"[211][217][211] 49155. [210][193][201][206][194][207][215] WILL DO ALL FILE" 1070 PRINT"HANDLING. [217]OU DO NOT NEED TO SPECIFY" 1080 PRINT"FILE TYPE, LENGTH OR EVEN OPEN THE" 1090 PRINT"FILE FIRST, LIKE SOME PROTOCOLS.":PRINT 1100 PRINT"[206][207][212][197]: [210][211]-232 CHANNEL MUST BE OPEN" 1110 PRINT"BEFORE ACTIVATING [210][193][201][206][194][207][215]." 1120 PRINT"E.X.: OPEN 5,2,0,C[200](6).":PRINT 1130 PRINT"[210][197][205][197][205][194][197][210]: [194]LOCK SIZE NEED ONLY BE SET" 1140 PRINT"WHEN TRANSMITTING. [210]ECEIVER WILL AUTO-" 1150 PRINT"MATICALLY ADJUST TO THE PROPER BLOCK" 1160 PRINT"SIZE.":PRINT 1170 GOSUB200:PRINT"[147]" 1180 PRINT"[211][208][197][195][201][193][204] [201][206][212][197][210][206][193][204][160][210][207][213][212][201][206][197]:":PRINT 1190 PRINT"[193] [196][201][210][197][195][212][207][210][217] LOOK UP ROUTINE CAN BE" 1200 PRINT"CALLED FROM [194][193][211][201][195]:":PRINT:PRINT:PRINT 1210 PRINT"[153]1] [208]UT FILE NAME IN [206][205]$":PRINT 1220 PRINT"2] [211][217][211] 49158":PRINT 1230 PRINT"3] [198]ILETYPE RETURNED IN 49193 IN [193][211][195][201][201]":PRINT 1240 PRINT"4] [204]ENGTH RETURNED IN 49194 -49195":PRINT 1250 PRINT"5] [197]RROR RETURNED IN 49196:" 1255 PRINT" 1) [207][203][193][217]" 1260 PRINT" 2) [196]ISK ERROR" 1270 PRINT" 3) [198]ILE NOT FOUND." 1280 GOSUB200:PRINT"[147]"; 1290 PRINT"[156][211]PEED UP FACTS:" 1300 PRINT 1320 PRINT"[210][193][201][206][194][207][215] USES TWO DIFFERENT SPEED UP" 1330 PRINT"TECHNIQUES.:":PRINT 1340 PRINT"1] [193]LL RS-232 HOLD-OFF DELAYS ARE SET" 1350 PRINT" SET TO A MINIMUM. [194]OTH TRANSMITING" 1360 PRINT" AND RECEIVING DRIVES WILL RUN AT" 1370 PRINT" THE SAME TIME.":PRINT 1380 PRINT"2] [193] BLOCK IS DIVIDED INTO THREE PARTS" 1390 PRINT" [201]F ONE PART IS WRONG, ONLY THE" 1400 PRINT" NECESSARY PORTION IS RE-SENT." 1410 GOSUB200:PRINT"[147]"; 1420 PRINT"[210][193][156][201][158][206][159][194][154][207][150][215][146] [208][210][207][212][207][195][207][204] WAS WRITTEN BY:":PRINT 1430 PRINT"[196]AVID [215]HATLEY & [205]IKE [196]ABBS, FOUNDERS:":PRINT 1440 PRINT"[129] [196][197][197][208] [208][193][206] SOFTWARE CO.":PRINT 1450 PRINT"[201]F YOU FIND [210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204] USEFUL" 1460 PRINT"AND WISH TO SEND A DONATION OF $5" 1470 PRINT:PRINT"[212]HE ADDRESS IS:":PRINT:PRINT:PRINT 1480 PRINT"[154] [196][197][197][208] [208][193][206] [211][207][198][212][215][193][210][197]" 1485 PRINT" C/O [196]AVID [215]HATLEY" 1490 PRINT" #3 [198]AIRWAY CT." 1500 PRINT" [198]LORISSANT [205][207]" 1510 PRINT"[160] 63033" 1520 GOSUB200:PRINT"[147]"; 1530 PRINT"[159][204][201][195][197][206][211][197] [212][207] [211][207][198][212][215][193][210][197] [193][213][212][200][207][210][211]:":PRINT 1540 PRINT"[210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204] IS PUBLIC DOMAIN." 1550 PRINT"[193]NY PERSON WISHING TO USE [210][193][201][206][194][207][215]" 1560 PRINT"[208][210][207][212][207][195][207][204] IN THEIR OWN PROGRAM OR" 1570 PRINT"PROGRAMS, FOR SALE OR NOT, IS GRANTED" 1580 PRINT"PERMISSION SO LONG AS CREDIT IS CLEARLY" 1590 PRINT"GIVEN TO THE AUTHORS OF [210][193][201][206][194][207][215]" 1600 PRINT"[208][210][207][212][207][195][207][204] IN THE APPROPRIATE SECTIONS OF" 1610 PRINT"CODE." 1620 PRINT:PRINT"[196][197][197][208] [208][193][206] [211][207][198][212][215][193][210][197] IS TO BE INFORMED" 1630 PRINT"PRIOR TO RELEASING A SOFTWARE PACKAGE" 1640 PRINT"CONTAINING [210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204] CODE." 1650 PRINT"[206]O ROYALTIES OR CHARGE OF ANY KIND WILL" 1660 PRINT"BE INCURRED.":PRINT 1670 PRINT"[210][193][201][206][194][207][215] [208][210][207][212][207][195][207][204] AND IT'S MACHINE CODE" 1680 PRINT"ARE COPYRIGHTED BY [196]EEP [208]AN [211]OFTWARE" 1690 PRINT"COMPANY, ALL RIGHTS ARE RESERVED." 1700 GOSUB200 1710 RUN